home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 November: Tool Chest / Dev.CD Nov 00 TC Disk 2.toast / pc / tool chest / quicktime / quicktime tools / quicktime xcmds / qtmovie stack / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-06-12  |  3.8 KB  |  31 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>12</cardCount>
  7.     <cardID>2150</cardID>
  8.     <listID>4175</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>576</width>
  14.         <height>392</height>
  15.     </cardSize>
  16.     <script>on DisposeVideo
  17. global movieID
  18. -- Direct movies only!
  19. -- This disposes of the movie but doesn't erase the screen
  20. -- so some may be confused by last frame seen still appearing
  21. if movieID is not empty and movieID is a number then
  22. QTMovie Direct,movieID,Dispose
  23. put empty into movieID
  24. end if
  25. end DisposeVideo
  26.  
  27. on openStack
  28. put empty into foo
  29. QTMovie version
  30. put the result into v
  31. put "QTMovie: " & v into line 1 of foo
  32.  
  33. put foo into cd field versions of card 1
  34.  
  35. buildPopUp
  36.  
  37. QTMovie OpenMovie
  38. get the result
  39. if "must install" is in it then answer "QuickTime is NOT installed"
  40. end OpenStack
  41.  
  42. -- moves rect to 0,0; used in set movieRect calls
  43. function ZeroRect r
  44. subtract item 1 of r from item 3 of r
  45. subtract item 2 of r from item 4 of r
  46. put 0 into item 1 of r
  47. put 0 into item 2 of r
  48. return r
  49. end ZeroRect
  50.  
  51. on newCard
  52. buildPopUp
  53. end newCard
  54.  
  55. on buildPopUp
  56. global menuItems
  57. put empty into menuItems
  58. repeat with i = 1 to the number of cards
  59. get the short name of card i
  60. put it & "," after menuItems
  61. end repeat
  62.  
  63. delete last char of menuItems -- the last comma
  64.  
  65. end buildPopUp
  66.  
  67. on GoCard
  68. global menuItems
  69.  
  70. if there is a window "live video" then send videoOff to window "live video"
  71. get PopUpMenu (menuItems, 0, bottom of the target, left of the target+1)
  72. if there is a window "live video" then send videoOn to window "live video"
  73.  
  74. if it > 0 then
  75. go card it of this bg
  76. end if
  77. end GoCard
  78.  
  79. function ExtractFileName FileName
  80. put ":" into Delimiter
  81. if Delimiter is in FileName then
  82. repeat with CharPos = length(FileName) down to 1
  83. if char CharPos of FileName = Delimiter
  84. then return char CharPos+1 to length(FileName) of FileName
  85. end repeat
  86. return empty
  87. else
  88. return FileName
  89. end if
  90. end ExtractFileName
  91.  
  92. function ExtractPathName FileName
  93. put ":" into Delimiter
  94. repeat with CharPos = length(FileName) down to 1
  95. if char CharPos of FileName = Delimiter
  96. then return char 1 to CharPos of FileName
  97. end repeat
  98. return empty
  99. end ExtractPathName
  100.  
  101. on primeStack
  102. repeat with i = 1 to the number of cards
  103. go card i
  104. send primeCard to card i
  105. end repeat
  106.  
  107. go first card
  108. end primeStack
  109.  
  110. on primeCard
  111. if there is a field filename then
  112. put  "Your Volume:Your Folder:Your File" into field filename
  113. end if
  114. if there is a cd field "help text" then
  115. set lockText of cd field "help text" to true
  116. hide cd field "help text"
  117. end if
  118. end primeCard
  119. </script>
  120.     <background id="2723" file="background_2723.xml" name="QTMovie" />
  121.     <card id="2150" file="card_2150.xml" marked="false" name="Title Page" owner="2723" />
  122.     <card id="8456" file="card_8456.xml" marked="false" name="Play a Movie" owner="2723" />
  123.     <card id="6233" file="card_6233.xml" marked="false" name="Segment play" owner="2723" />
  124.     <card id="2402" file="card_2402.xml" marked="false" name="Drag and Resize" owner="2723" />
  125.     <card id="3809" file="card_3809.xml" marked="false" name="The Kerns Smear" owner="2723" />
  126.     <card id="6049" file="card_6049.xml" marked="false" name="Splat Movie" owner="2723" />
  127.     <card id="4954" file="card_4954.xml" marked="false" name="Clipped Movies" owner="2723" />
  128.     <card id="4359" file="card_4359.xml" marked="false" name="Panning a Movie" owner="2723" />
  129.     <card id="6566" file="card_6566.xml" marked="false" name="Replace a Movie" owner="2723" />
  130.     <card id="10765" file="card_10765.xml" marked="false" name="MouseDown Callback" owner="2723" />
  131.     <card id="10057" file="card_10057.xml" marked="false" name="Timed Call Back" owner="2723" />
  132.     <card id="6858" file="card_6858.xml" marked="false" name="Window Close Callback" owner="2723" />
  133. </stack>
  134.